home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / WACCT.SAB < prev    next >
Text File  |  1991-09-27  |  735b  |  26 lines
  1. label start
  2. cls
  3. display cp.dis
  4. write "WACCT.SAB" at 2,36
  5. set v z to ""
  6. fillin z using "Enter ADD.CODE (Or <ESC> To Exit)   " at 5,15
  7. if z = "" then ; goto fin ; endif
  8. set v whr to address in property where add.code = .z
  9. set v cnum to wat.acct in property where add.code = .z
  10. write "Current Account Number For" at 7,5
  11. write .whr at 7,32
  12. write .cnum at 7,55
  13. set v num to ""
  14. fillin num using "Enter New Acct Number (or <ESC>) " at 9,5
  15. if num = "" then ; goto start ; endif
  16. set messages on
  17. change wat.acct to .num in property where add.code = .z
  18. change wat.acct to .num in cur.mast where add.code = .z
  19. change wat.acct to .num in old.mast where add.code = .z
  20. set messages off
  21. goto start
  22. label fin
  23.   cls
  24.   return
  25.  
  26.